home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / SALESCLR.PRG < prev    next >
Text File  |  1980-01-01  |  957b  |  40 lines
  1. *
  2. * SALESCLR
  3. * CLEAR THIS PERIOD SALES FIGURES IN THE MANUFACTURED INVENTORY FILE
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Manufactured Inventory System Sales Reset <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE "PERIOD    " TO ACTION
  16. @ 9,1 SAY "Figure to Clear: PERIOD or CUMULATIVE " GET ACTION
  17. STORE " " TO DUMMY
  18. @ 15,1 SAY ;
  19. "THIS PROGRAM CLEARS THE CURRENT PERIOD SALES FIGURE, OR BOTH THE CURRENT AND"
  20. @ 16,1 SAY ;
  21. "CUMULATIVE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS PROGRAM =>";
  22. GET DUMMY
  23. READ
  24. STORE UPPER(DUMMY) TO DUMMY
  25. IF DUMMY="M"
  26.    RETURN
  27. ENDIF
  28. * OPEN INVENTORY FILE
  29. USE MFGINV
  30. GO TOP
  31. * CLEAR THE SPECIFIED FIELDS
  32. DO CASE
  33.    CASE ACTION="PERIOD"
  34.       REPLACE ALL PER_SALES WITH 0
  35.    CASE ACTION="CUMULATIVE"
  36.       REPLACE ALL PER_SALES WITH 0, CUM_SALES WITH 0
  37. ENDCASE
  38. CLEAR
  39. RETURN
  40.